home *** CD-ROM | disk | FTP | other *** search
/ Internet Info 1994 March / Internet Info CD-ROM (Walnut Creek) (March 1994).iso / networking / athena / moira / patch2 < prev    next >
Encoding:
Text File  |  1990-09-04  |  54.7 KB  |  1,705 lines
  1. This is patch #2 to Moira release 2.2, of Wed May  2 12:11:40 EDT 1990
  2. (revised Wed Sep  5 16:31:30 EDT 1990)
  3.  
  4. BE SURE TO APPLY THIS PATCH WITH
  5.  
  6.    patch -p
  7.  
  8. TO PRESERVE THE DIRECTORY HIERARCHY.
  9.  
  10. The following bugs are fixed:
  11.  
  12. 1. Update patchlevel.h to indicate we are at patchlevel 2.
  13. 2. Fix a list dependancy problem and some lint errors in the aliases extract.
  14. 3. Have top-level Makefile create the profiled directories.
  15. 4. Speedups and several fixes to the mailhub extract.
  16. 5. Have the install_dirs script no longer use sms_untar (no longer
  17.    works around old quota bugs).
  18. 6. Several pieces of documentation refer to the file db/dbbuild which
  19.    was renamed to db/newdb a long time ago.
  20. 7. The installation instructions didn't mention nightly backups.
  21. 8. Some incorrect array sizes in the moira client could cause coredumps.
  22. 9. Some lint in the moira client could cause unusual behavior under
  23.    certain compilers.
  24. 10.Removed cistrcmp() which duplicated library function strcasecmp().
  25.  
  26.  
  27.  
  28. *** /tmp/,RCSt1023961    Wed May  2 12:14:25 1990
  29. --- patchlevel.h    Wed May  2 12:07:36 1990
  30. ***************
  31. *** 1 ****
  32. ! #define PATCHLEVEL 1
  33. --- 1 ----
  34. ! #define PATCHLEVEL 2
  35. *** /tmp/,RCSt1023970    Wed May  2 12:15:15 1990
  36. --- gen/aliases.qc    Tue Apr 10 12:42:38 1990
  37. ***************
  38. *** 1,4 ****
  39. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/gen/RCS/aliases.qc,v 1.14 90/03/19 19:05:48 mar Exp $
  40.    *
  41.    * This generates the /usr/lib/aliases mail aliases file for the mailhub.
  42.    * The aliases file will contain:
  43. --- 1,4 ----
  44. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/gen/RCS/aliases.qc,v 1.15 90/04/10 12:42:07 mar Exp $
  45.    *
  46.    * This generates the /usr/lib/aliases mail aliases file for the mailhub.
  47.    * The aliases file will contain:
  48. ***************
  49. *** 110,116 ****
  50.   static int ingerr(num)
  51.       int *num;
  52.   {
  53. -     char buf[256];
  54.       int ingres_errno;
  55.   
  56.       switch (*num) {
  57. --- 110,115 ----
  58. ***************
  59. *** 270,276 ****
  60.       return;
  61.       }
  62.       l->maillist = 2;
  63. !     output_mlist(id, l, out);
  64.   
  65.       if (l->acl_t == 'L' && (l1 = (struct list *)hash_lookup(lists, l->acl_id)))
  66.         save_mlist(0, l1, 1);
  67. --- 269,275 ----
  68.       return;
  69.       }
  70.       l->maillist = 2;
  71. !     output_mlist(id, l);
  72.   
  73.       if (l->acl_t == 'L' && (l1 = (struct list *)hash_lookup(lists, l->acl_id)))
  74.         save_mlist(0, l1, 1);
  75. ***************
  76. *** 277,283 ****
  77.       
  78.       for (m = l->m; m; m = m->next) {
  79.       if (m->list_id && (l1 = (struct list *)hash_lookup(lists, m->list_id)))
  80. !       save_mlist(0, l1, 0);
  81.       }
  82.   }
  83.   
  84. --- 276,282 ----
  85.       
  86.       for (m = l->m; m; m = m->next) {
  87.       if (m->list_id && (l1 = (struct list *)hash_lookup(lists, m->list_id)))
  88. !       save_mlist(0, l1, 1);
  89.       }
  90.   }
  91.   
  92. ***************
  93. *** 284,298 ****
  94.   
  95.   int lwid, bol, awid;
  96.   
  97. ! output_mlist(id, l, dummy)
  98.   int id;
  99.   register struct list *l;
  100. - int dummy;
  101.   {
  102.       struct list *l1;
  103.       register struct member *m;
  104.       struct user *u;
  105. -     int id;
  106.   
  107.       put_fill(out, l->description);
  108.       if (l->acl_t ==  'L') {
  109. --- 283,295 ----
  110.   
  111.   int lwid, bol, awid;
  112.   
  113. ! output_mlist(id, l)
  114.   int id;
  115.   register struct list *l;
  116.   {
  117.       struct list *l1;
  118.       register struct member *m;
  119.       struct user *u;
  120.   
  121.       put_fill(out, l->description);
  122.       if (l->acl_t ==  'L') {
  123. ***************
  124. *** 380,388 ****
  125.   do_poboxes(out)
  126.   FILE *out;
  127.   {
  128. -     register char *p;
  129. -     char *index();
  130. - 
  131.       fprintf(out, "\n%s\n# User Poboxes\n%s\n", divide, divide);
  132.   
  133.       hash_step(users, do_pobox, out);
  134. --- 377,382 ----
  135. *** /tmp/,RCSt1023986    Wed May  2 12:20:15 1990
  136. --- Makefile    Wed May  2 12:19:58 1990
  137. ***************
  138. *** 1,7 ****
  139.   # Makefile for SMS 2.0
  140.   #
  141.   #    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/RCS/Makefile,v $
  142. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/RCS/Makefile,v 1.14 90/03/30 17:30:21 mar Exp $
  143.   #    $Author: mar $
  144.   #
  145.   # (c) Copyright 1988 by the Massachusetts Institute of Technology.
  146. --- 1,7 ----
  147.   # Makefile for SMS 2.0
  148.   #
  149.   #    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/RCS/Makefile,v $
  150. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/RCS/Makefile,v 1.15 90/05/02 12:19:43 mar Exp $
  151.   #    $Author: mar $
  152.   #
  153.   # (c) Copyright 1988 by the Massachusetts Institute of Technology.
  154. ***************
  155. *** 16,21 ****
  156. --- 16,22 ----
  157.   INSTALLDIRS= include
  158.   
  159.   all:
  160. +     -@mkdir et/profiled gdb/profiled rpc/profiled server/profiled
  161.       if [ -f /usr/rtingres/bin/eqc ]; then \
  162.           DIRS="${ALLDIRS}" ; \
  163.       else \
  164. *** /tmp/,RCSt1023997    Wed May  2 12:25:33 1990
  165. --- gen/mailhub.qc    Fri Apr 13 15:16:25 1990
  166. ***************
  167. *** 1,5 ****
  168.   
  169. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/gen/RCS/mailhub.qc,v 1.5 90/03/19 19:06:11 mar Exp $
  170.    *
  171.    * This generates the /usr/lib/aliases file for the mailhub.
  172.    *
  173. --- 1,5 ----
  174.   
  175. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/gen/RCS/mailhub.qc,v 1.7 90/04/13 15:15:28 mar Exp $
  176.    *
  177.    * This generates the /usr/lib/aliases file for the mailhub.
  178.    *
  179. ***************
  180. *** 23,28 ****
  181. --- 23,29 ----
  182.   char *whoami = "mailhub.gen";
  183.   char *ingres_date_and_time();
  184.   char *perm_malloc();
  185. + char *pstrsave();
  186.   char *divide = "##############################################################";
  187.   
  188.   #define ML_WID    72
  189. ***************
  190. *** 31,43 ****
  191.   #define FALSE 0
  192.   #define TRUE (!FALSE)
  193.   
  194.   
  195.   main(argc, argv)
  196.   int argc;
  197.   char **argv;
  198.   {
  199.       long tm = time(NULL);
  200. -     FILE *out= stdout;
  201.       char filename[64], *targetfile;
  202.       struct stat sb;
  203.   ##  int flag;
  204. --- 32,45 ----
  205.   #define FALSE 0
  206.   #define TRUE (!FALSE)
  207.   
  208. + FILE *out= stdout;
  209.   
  210. + 
  211.   main(argc, argv)
  212.   int argc;
  213.   char **argv;
  214.   {
  215.       long tm = time(NULL);
  216.       char filename[64], *targetfile;
  217.       struct stat sb;
  218.   ##  int flag;
  219. ***************
  220. *** 82,89 ****
  221.       sort_info();
  222.   
  223.       fprintf(stderr, "Dumping information\n");
  224. !     do_lists(out);
  225. !     do_people(out);
  226.   
  227.       fprintf(out, "\n%s\n# End of aliases file\n", divide);
  228.   
  229. --- 84,90 ----
  230.       sort_info();
  231.   
  232.       fprintf(stderr, "Dumping information\n");
  233. !     do_people();
  234.   
  235.       fprintf(out, "\n%s\n# End of aliases file\n", divide);
  236.   
  237. ***************
  238. *** 165,180 ****
  239.   ##  retrieve (buf = list.modtime) where list.list_id = 0
  240.   
  241.       cnt = 0;
  242. !     machines = create_hash(1000);
  243. ! ##  retrieve (id = machine.mach_id, name = machine.#name) {
  244.         if (s = index(name, '.'))
  245.       *s = 0;
  246.   #ifdef ATHENA
  247. !       sprintf(buf, "%s.LOCAL", name);
  248. !       if (hash_store(machines, id, strsave(buf)) < 0) {
  249. ! #else
  250. !       if (hash_store(machines, id, strsave(name)) < 0) {
  251.   #endif
  252.         fprintf(stderr, "Out of memory!\n");
  253.         exit(MR_NO_MEM);
  254.         }
  255. --- 166,182 ----
  256.   ##  retrieve (buf = list.modtime) where list.list_id = 0
  257.   
  258.       cnt = 0;
  259. !     machines = create_hash(10);
  260. ! ##  retrieve (id = machine.mach_id, name = machine.#name)
  261. ! ##        where machine.mach_id = users.pop_id {
  262.         if (s = index(name, '.'))
  263.       *s = 0;
  264. +       else
  265. +     strtrim(name);
  266.   #ifdef ATHENA
  267. !       strcat(name, ".LOCAL");
  268.   #endif
  269. +       if (hash_store(machines, id, pstrsave(name)) < 0) {
  270.         fprintf(stderr, "Out of memory!\n");
  271.         exit(MR_NO_MEM);
  272.         }
  273. ***************
  274. *** 183,191 ****
  275.       fprintf(stderr, "Loaded %d machines\n", cnt);
  276.   
  277.       cnt = 0;
  278. !     strings = create_hash(2000);
  279.   ##  retrieve (id = strings.string_id, name = strings.string) {
  280. !     if (hash_store(strings, id, strsave(strtrim(name))) < 0) {
  281.           fprintf(stderr, "Out of memory!\n");
  282.           exit(MR_NO_MEM);
  283.       }
  284. --- 185,193 ----
  285.       fprintf(stderr, "Loaded %d machines\n", cnt);
  286.   
  287.       cnt = 0;
  288. !     strings = create_hash(4000);
  289.   ##  retrieve (id = strings.string_id, name = strings.string) {
  290. !     if (hash_store(strings, id, pstrsave(strtrim(name))) < 0) {
  291.           fprintf(stderr, "Out of memory!\n");
  292.           exit(MR_NO_MEM);
  293.       }
  294. ***************
  295. *** 201,209 ****
  296.   ##          type = u.potype, pid = u.pop_id, bid = u.box_id) 
  297.   ##    where u.status != 3 {
  298.       u = (struct user *) perm_malloc(sizeof(struct user));
  299. !     u->login = strsave(strtrim(name));
  300. !     u->first = strsave(strtrim(fname));
  301. !     u->last  = strsave(strtrim(lname));
  302.       if (mname[0] != ' ')
  303.         u->mi = mname[0];
  304.       else
  305. --- 203,211 ----
  306.   ##          type = u.potype, pid = u.pop_id, bid = u.box_id) 
  307.   ##    where u.status != 3 {
  308.       u = (struct user *) perm_malloc(sizeof(struct user));
  309. !     u->login = pstrsave(strtrim(name));
  310. !     u->first = pstrsave(strtrim(fname));
  311. !     u->last  = pstrsave(strtrim(lname));
  312.       if (mname[0] != ' ')
  313.         u->mi = mname[0];
  314.       else
  315. ***************
  316. *** 210,217 ****
  317.         u->mi = 0;
  318.   
  319.       if (type[0] == 'P' && (s = hash_lookup(machines, pid))) {
  320. !         sprintf(buf, "%s@%s", strtrim(name), s);
  321. !         u->pobox = strsave(buf);
  322.       } else if (type[0] ==  'S') {
  323.           u->pobox = hash_lookup(strings, bid);
  324.       } else
  325. --- 212,219 ----
  326.         u->mi = 0;
  327.   
  328.       if (type[0] == 'P' && (s = hash_lookup(machines, pid))) {
  329. !         sprintf(buf, "%s@%s", u->login, s);
  330. !         u->pobox = pstrsave(buf);
  331.       } else if (type[0] ==  'S') {
  332.           u->pobox = hash_lookup(strings, bid);
  333.       } else
  334. ***************
  335. *** 231,237 ****
  336.   ##          type = l.acl_type, acl = l.acl_id)
  337.   ##    where l.active != 0 {
  338.       l = (struct list *) perm_malloc(sizeof(struct list));
  339. !     l->name = strsave(strtrim(name));
  340.       l->maillist = maillistp;
  341.       l->acl_t = type[0];
  342.       l->acl_id = acl;
  343. --- 233,239 ----
  344.   ##          type = l.acl_type, acl = l.acl_id)
  345.   ##    where l.active != 0 {
  346.       l = (struct list *) perm_malloc(sizeof(struct list));
  347. !     l->name = pstrsave(strtrim(name));
  348.       l->maillist = maillistp;
  349.       l->acl_t = type[0];
  350.       l->acl_id = acl;
  351. ***************
  352. *** 284,291 ****
  353.       register struct member *m;
  354.       register struct list *l1;
  355.   
  356. !     if (l->maillist == 2 ||
  357. !     l->maillist == 3 ||
  358.       (l->maillist == 0 && !force))
  359.         return;
  360.   
  361. --- 286,292 ----
  362.       register struct member *m;
  363.       register struct list *l1;
  364.   
  365. !     if (l->maillist > 1 ||
  366.       (l->maillist == 0 && !force))
  367.         return;
  368.   
  369. ***************
  370. *** 295,301 ****
  371.       return;
  372.       }
  373.       l->maillist = 2;
  374. !     insert_name(l->name, -id, TRUE, FALSE);
  375.   
  376.       if (l->acl_t == 'L' && (l1 = (struct list *)hash_lookup(lists, l->acl_id)))
  377.         save_mlist(0, l1, TRUE);
  378. --- 296,303 ----
  379.       return;
  380.       }
  381.       l->maillist = 2;
  382. !     insert_name(l->name, -1, TRUE, FALSE);
  383. !     output_mlist(id, l);
  384.   
  385.       if (l->acl_t == 'L' && (l1 = (struct list *)hash_lookup(lists, l->acl_id)))
  386.         save_mlist(0, l1, TRUE);
  387. ***************
  388. *** 356,366 ****
  389.           exit(MR_NO_MEM);
  390.       }
  391.       if (copy)
  392. !       ns->name = strsave(s);
  393.       else
  394.         ns->name = s;
  395.       ns->keep = nodups;
  396.       ns->id = id;
  397.       if (hash_store(names, code, ns) < 0) {
  398.           fprintf(stderr, "Out of memory!\n");
  399.           exit(MR_NO_MEM);
  400. --- 358,369 ----
  401.           exit(MR_NO_MEM);
  402.       }
  403.       if (copy)
  404. !       ns->name = pstrsave(s);
  405.       else
  406.         ns->name = s;
  407.       ns->keep = nodups;
  408.       ns->id = id;
  409. +     ns->next = NULL;
  410.       if (hash_store(names, code, ns) < 0) {
  411.           fprintf(stderr, "Out of memory!\n");
  412.           exit(MR_NO_MEM);
  413. ***************
  414. *** 380,395 ****
  415.       }
  416.       ns = ns->next;
  417.       if (copy)
  418. !       ns->name = strsave(s);
  419.       else
  420.         ns->name = s;
  421.       ns->keep = nodups;
  422.       ns->id = id;
  423.       return;
  424.       }
  425.    foundns:
  426. !     if (nodups || ns->keep)
  427. !       return;
  428.       ns->id = 0;
  429.   }
  430.   
  431. --- 383,402 ----
  432.       }
  433.       ns = ns->next;
  434.       if (copy)
  435. !       ns->name = pstrsave(s);
  436.       else
  437.         ns->name = s;
  438.       ns->keep = nodups;
  439.       ns->id = id;
  440. +     ns->next = NULL;
  441.       return;
  442.       }
  443.    foundns:
  444. !     if (nodups || ns->keep) {
  445. !     if (nodups && ns->keep)
  446. !       fprintf(stderr, "duplicated named: %s\n", s);
  447. !     return;
  448. !     }
  449.       ns->id = 0;
  450.   }
  451.   
  452. ***************
  453. *** 444,450 ****
  454. --- 451,460 ----
  455.   {
  456.       names = create_hash(20001);
  457.       hash_step(users, insert_login, NULL);
  458. +     incount = 0;
  459. +     fprintf(out, "\n%s\n# Mailing lists\n%s\n", divide, divide);
  460.       hash_step(lists, save_mlist, FALSE);
  461. +     fprintf(stderr, "Output %d lists\n", incount);
  462.       hash_step(users, insert_names, NULL);
  463.       fprintf(stderr, "Inserted %d names\n", incount);
  464.   }
  465. ***************
  466. *** 480,496 ****
  467.   
  468.   int lwid, bol, awid;
  469.   
  470. ! output_mlist(id, l, out)
  471.   int id;
  472.   register struct list *l;
  473. - FILE *out;
  474.   {
  475.       struct list *l1;
  476.       register struct member *m;
  477.       register struct user *u;
  478.   
  479. -     if (l->maillist != 2)
  480. -       return;
  481.       if (l->acl_t ==  'L' &&
  482.       (l1 = (struct list *) hash_lookup(lists, l->acl_id)))
  483.         fprintf(out, "owner-%s: %s\n%s: ", l->name, l1->name, l->name);
  484. --- 490,503 ----
  485.   
  486.   int lwid, bol, awid;
  487.   
  488. ! output_mlist(id, l)
  489.   int id;
  490.   register struct list *l;
  491.   {
  492.       struct list *l1;
  493.       register struct member *m;
  494.       register struct user *u;
  495.   
  496.       if (l->acl_t ==  'L' &&
  497.       (l1 = (struct list *) hash_lookup(lists, l->acl_id)))
  498.         fprintf(out, "owner-%s: %s\n%s: ", l->name, l1->name, l->name);
  499. ***************
  500. *** 497,502 ****
  501. --- 504,512 ----
  502.       else if (l->acl_t ==  'U' &&
  503.            (u = (struct user *) hash_lookup(users, l->acl_id)))
  504.         fprintf(out, "owner-%s: %s\n%s: ", l->name, u->login, l->name);
  505. +     else
  506. +       fprintf(out, "%s: ", l->name);
  507. +       
  508.   
  509.       lwid = strlen(l->name) + 2;
  510.       bol = 1;
  511. ***************
  512. *** 547,565 ****
  513.   }
  514.   
  515.   
  516. ! do_lists(out)
  517. ! FILE *out;
  518.   {
  519.       incount = 0;
  520. -     fprintf(out, "\n%s\n# Mailing lists\n%s\n", divide, divide);
  521. -     hash_step(lists, output_mlist, out);
  522. -     fprintf(stderr, "Output %d lists\n", incount);
  523. - }
  524. - 
  525. - do_people(out)
  526. - FILE *out;
  527. - {
  528. -     incount = 0;
  529.       fprintf(out, "\n%s\n# People\n%s\n", divide, divide);
  530.       hash_step(names, output_data, out);
  531.       fprintf(stderr, "Output %d entries\n", incount);
  532. --- 557,565 ----
  533.   }
  534.   
  535.   
  536. ! do_people()
  537.   {
  538.       incount = 0;
  539.       fprintf(out, "\n%s\n# People\n%s\n", divide, divide);
  540.       hash_step(names, output_data, out);
  541.       fprintf(stderr, "Output %d entries\n", incount);
  542. ***************
  543. *** 586,588 ****
  544. --- 586,765 ----
  545.       return(ret);
  546.   }
  547.   
  548. + 
  549. + /*
  550. +  * Make a (permenant) copy of a string.
  551. +  */
  552. + char *
  553. + pstrsave(s)
  554. +     char *s;
  555. + {
  556. +     register int len;
  557. +     register char *p;
  558. +     /* Kludge for sloppy string semantics */
  559. +     if (!s) {
  560. +         printf("NULL != \"\" !!!!\r\n");
  561. +         p = perm_malloc(1);
  562. +         *p = '\0';
  563. +         return p;
  564. +     }
  565. +     len = strlen(s) + 1;
  566. +     p = perm_malloc((u_int)len);
  567. +     if (p) bcopy(s, p, len);
  568. +     return p;
  569. + }
  570. + 
  571. + #define hash_func(h, key) (key >= 0 ? (key % h->size) : (-key % h->size))
  572. + 
  573. + /* Create a hash table.  The size is just a hint, not a maximum. */
  574. + 
  575. + struct hash *create_hash(size)
  576. + int size;
  577. + {
  578. +     struct hash *h;
  579. + 
  580. +     h = (struct hash *) perm_malloc(sizeof(struct hash));
  581. +     if (h == (struct hash *) NULL)
  582. +       return((struct hash *) NULL);
  583. +     h->size = size;
  584. +     h->data = (struct bucket **) perm_malloc(size * sizeof(char *));
  585. +     if (h->data == (struct bucket **) NULL) {
  586. +     free(h);
  587. +     return((struct hash *) NULL);
  588. +     }
  589. +     bzero(h->data, size * sizeof(char *));
  590. +     return(h);
  591. + }
  592. + 
  593. + /* Lookup an object in the hash table.  Returns the value associated with
  594. +  * the key, or NULL (thus NULL is not a very good value to store...)
  595. +  */
  596. + 
  597. + char *hash_lookup(h, key)
  598. + struct hash *h;
  599. + register int key;
  600. + {
  601. +     register struct bucket *b;
  602. + 
  603. +     b = h->data[hash_func(h, key)];
  604. +     while (b && b->key != key)
  605. +       b = b->next;
  606. +     if (b && b->key == key)
  607. +       return(b->data);
  608. +     else
  609. +       return(NULL);
  610. + }
  611. + 
  612. + 
  613. + /* Update an existing object in the hash table.  Returns 1 if the object
  614. +  * existed, or 0 if not.
  615. +  */
  616. + 
  617. + int hash_update(h, key, value)
  618. + struct hash *h;
  619. + register int key;
  620. + char *value;
  621. + {
  622. +     register struct bucket *b;
  623. + 
  624. +     b = h->data[hash_func(h, key)];
  625. +     while (b && b->key != key)
  626. +       b = b->next;
  627. +     if (b && b->key == key) {
  628. +     b->data = value;
  629. +     return(1);
  630. +     } else
  631. +       return(0);
  632. + }
  633. + 
  634. + 
  635. + /* Store an item in the hash table.  Returns 0 if the key was not previously
  636. +  * there, 1 if it was, or -1 if we ran out of memory.
  637. +  */
  638. + 
  639. + int hash_store(h, key, value)
  640. + struct hash *h;
  641. + register int key;
  642. + char *value;
  643. + {
  644. +     register struct bucket *b, **p;
  645. + 
  646. +     p = &(h->data[hash_func(h, key)]);
  647. +     if (*p == NULL) {
  648. +     b = *p = (struct bucket *) perm_malloc(sizeof(struct bucket));
  649. +     if (b == (struct bucket *) NULL)
  650. +       return(-1);
  651. +     b->next = NULL;
  652. +     b->key = key;
  653. +     b->data = value;
  654. +     return(0);
  655. +     }
  656. + 
  657. +     for (b = *p; b && b->key != key; b = *p)
  658. +       p = (struct bucket **) *p;
  659. +     if (b && b->key == key) {
  660. +     b->data = value;
  661. +     return(1);
  662. +     }
  663. +     b = *p = (struct bucket *) perm_malloc(sizeof(struct bucket));
  664. +     if (b == (struct bucket *) NULL)
  665. +       return(-1);
  666. +     b->next = NULL;
  667. +     b->key = key;
  668. +     b->data = value;
  669. +     return(0);
  670. + }
  671. + 
  672. + 
  673. + /* Search through the hash table for a given value.  For each piece of
  674. +  * data with that value, call the callback proc with the corresponding key.
  675. +  */
  676. + 
  677. + hash_search(h, value, callback)
  678. + struct hash *h;
  679. + register char *value;
  680. + void (*callback)();
  681. + {
  682. +     register struct bucket *b, **p;
  683. + 
  684. +     for (p = &(h->data[h->size - 1]); p >= h->data; p--) {
  685. +     for (b = *p; b; b = b->next) {
  686. +         if (b->data == value)
  687. +           (*callback)(b->key);
  688. +     }
  689. +     }
  690. + }
  691. + 
  692. + 
  693. + /* Step through the hash table, calling the callback proc with each key.
  694. +  */
  695. + 
  696. + hash_step(h, callback, hint)
  697. + struct hash *h;
  698. + void (*callback)();
  699. + char *hint;
  700. + {
  701. +     register struct bucket *b, **p;
  702. + 
  703. +     for (p = &(h->data[h->size - 1]); p >= h->data; p--) {
  704. +     for (b = *p; b; b = b->next) {
  705. +         (*callback)(b->key, b->data, hint);
  706. +     }
  707. +     }
  708. + }
  709. + 
  710. + 
  711. + /* Deallocate all of the memory associated with a table */
  712. + 
  713. + hash_destroy(h)
  714. + struct hash *h;
  715. + {
  716. +     register struct bucket *b, **p, *b1;
  717. + 
  718. +     for (p = &(h->data[h->size - 1]); p >= h->data; p--) {
  719. +     for (b = *p; b; b = b1) {
  720. +         b1 = b->next;
  721. +         free(b);
  722. +     }
  723. +     }
  724. + }
  725. *** /tmp/,RCSt1024004    Wed May  2 12:29:06 1990
  726. --- gen/install_dirs    Tue Apr 10 17:06:20 1990
  727. ***************
  728. *** 56,64 ****
  729.            # *****
  730.   
  731.            # Give user prototype files
  732. !          # sms_untar is a setuid argv[1] tar xfp -
  733. !          (cd $tmpdir; sms_untar $uid < $USERTAR)
  734.            if ($status) set WARN
  735.            breaksw      
  736.         case COURSE:
  737.        /bin/chmod 775 $tmpdir
  738. --- 56,64 ----
  739.            # *****
  740.   
  741.            # Give user prototype files
  742. !          (cd $tmpdir; tar xf $USERTAR)
  743.            if ($status) set WARN
  744. +      chown $uid.$gid $tmpdir $tmpdir/.??* $tmpdir/*
  745.            breaksw      
  746.         case COURSE:
  747.        /bin/chmod 775 $tmpdir
  748. ***************
  749. *** 75,79 ****
  750.   
  751.   #
  752.   #     $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/gen/RCS/install_dirs,v $
  753. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/gen/RCS/install_dirs,v 1.8 90/03/19 19:06:05 mar Exp $
  754.   #
  755. --- 75,79 ----
  756.   
  757.   #
  758.   #     $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/gen/RCS/install_dirs,v $
  759. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/gen/RCS/install_dirs,v 1.9 90/04/10 17:06:02 mar Exp $
  760.   #
  761. *** /mit/bitbucket/mar/moira/db/README    Wed Feb 14 11:12:49 1990
  762. --- db/README    Wed Apr 25 14:54:25 1990
  763. ***************
  764. *** 1,8 ****
  765. ! /mit/smsdev/db/README: $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/db/RCS/README,v 1.3 90/02/14 11:12:40 mar Exp $
  766.   
  767.   This directory contains stuff necessary to create and initialize an
  768.   sms database.  Note that some other directories rely on files here
  769. ! (notably dbbuild), and that the newsms program relies on other files.
  770.   
  771.   STEPS TO CREATE A DATABASE:
  772.   
  773. --- 1,8 ----
  774. ! /mit/smsdev/db/README: $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/db/RCS/README,v 1.4 90/04/25 14:54:12 mar Exp $
  775.   
  776.   This directory contains stuff necessary to create and initialize an
  777.   sms database.  Note that some other directories rely on files here
  778. ! (notably newdb), and that the newsms program relies on other files.
  779.   
  780.   STEPS TO CREATE A DATABASE:
  781.   
  782. *** /tmp/install.mss    Wed Sep  5 15:41:08 1990
  783. --- doc/install.mss    Wed Sep  5 15:40:58 1990
  784. ***************
  785. *** 145,151 ****
  786. --- 145,160 ----
  787.   and @b(register.)@i[machinename]@@@i[localrealm] is needed to run the
  788.   registration service.
  789.   
  790. + Finally, make entries in /etc/services:
  791. + @example{
  792. + sms_db        775/tcp        # Moira database
  793. + sms_update      777/tcp        # Moira update protocol
  794. + sms_ureg        779/udp        # Moira user registration
  795. + }
  796. + These are the numbers we use at Athena.  They are not officially
  797. + allocated, and you may change them at your site.
  798.   
  799. + 
  800.   @Subheading(Testing the Services)
  801.   
  802.   At this point the server and clients may be tested.  Run
  803. ***************
  804. *** 198,204 ****
  805. --- 207,219 ----
  806.   DCMs started every 15 minutes won't do anything until we removed that
  807.   file.
  808.   
  809. + A final piece of configuration is regular backups.  We backup the
  810. + database over the net, rather than backing up the filesystem.  This
  811. + allows us to restore the database on another machine architecture, if
  812. + necessary.  We do this by having @i(cron) run BIN_DIR@i(/nightly.sh)
  813. + at 5am each morning.
  814.   
  815. + 
  816.   @SubHeading(Customization)
  817.   
  818.   This is difficult to give advice on, but I'll start by describing how
  819. ***************
  820. *** 216,222 ****
  821.   objects such as users, lists, machines, etc. should be referenced by
  822.   their internal ID numbers.  If you're creating a new type that may be
  823.   referenced by other tables, assign each object a unique ID number as
  824. ! well as its name.  Add this table specification to @i(db/dbbuild), so
  825.   that recompiling the backup and restore programs will cause them to
  826.   know about the new table(s).
  827.   
  828. --- 231,237 ----
  829.   objects such as users, lists, machines, etc. should be referenced by
  830.   their internal ID numbers.  If you're creating a new type that may be
  831.   referenced by other tables, assign each object a unique ID number as
  832. ! well as its name.  Add this table specification to @i(db/newdb), so
  833.   that recompiling the backup and restore programs will cause them to
  834.   know about the new table(s).
  835.   
  836. *** /mit/bitbucket/mar/moira/doc/install.doc    Wed May  2 12:40:19 1990
  837. --- doc/install.doc    Fri Apr 20 19:35:07 1990
  838. ***************
  839. *** 91,162 ****
  840.   
  841.         Copy all of the binaries installed in bin to BIN_DIR.
  842.   
  843.   Creating the Database
  844.   
  845.   Create an Ingres database called moira with the command "createdb sms".
  846.   
  847. ! Run  the  script  db/newdb  in  quel,  the Ingres query interpreter, creating a
  848.   completely empty database.
  849.   
  850.   Run the newmoira program to initialize the database.  This program will ask:
  851.   
  852. !    1. For the name of a user to be given access to  the  database.    Root
  853. !       will  automatically  be given access; if you want someone else to be
  854. !       able to access the database through quel, then enter  their  name(s)
  855. !       here.    It  will keep asking you for names until you enter an empty
  856.         string.
  857.   
  858. !    2. The starting UID to assign.  This is the user id to be  assigned  to
  859. !       the  next  account  created.   Each time an account is created, this
  860. !       number is incremented as long as it conflicts with an  existing  UID
  861.         in the database, then the resulting value is used.
  862.   
  863.      3. The starting GID to assign.  This is used just like the UID above.
  864.   
  865. !    4. The  default  NFS  quota.    This  is  the  quota that new users are
  866.         assigned.
  867.   
  868. !    5. The name of a privileged user.  This user will be put  on  the  list
  869. !       dbadmin,  which  will be on the access control list for every query.
  870. !       This user may then  make  any  change  to  the  database,  including
  871.         putting other users on the dbadmin list.
  872.   
  873. ! At  some  point,  the  database  must  be optimized.  If a lot of data is to be
  874.   added, wait until afterwards.  Otherwise, you may do the optimization now.  The
  875. ! script  db/dbopt  contains  quel  commands to modify some of the structures and
  876. ! create additional indexes on the tables.    You  should  also  run  the  ingres
  877. ! commands  /usr/rtingres/bin/optimizedb  and /usr/rtingres/bin/sysmod after data
  878.   is loaded into the database.
  879.   
  880. ! Make sure the necessary Kerberos keys are  in  your  /etc/srvtab  file  on  the
  881. ! server.    For the initial server testing, only moira.machinename@localrealm is
  882. ! needed, but sms.[NULL]@localrealm is needed as well for updating  servers,  and
  883.   register.machinename@localrealm is needed to run the registration service.
  884.   
  885.   Testing the Services
  886.   
  887. ! At  this point the server and clients may be tested.  Run BIN_DIR/startmoira to
  888. ! get a server running.  It  will  log  everything  to  SMS_DIR/moira.log.    The
  889. ! privileged  user chosen above may run the moira client, and make changes to the
  890. ! database.  To make more privileged users, put the new users  on  the  "dbadmin"
  891.   list.
  892.   
  893. ! When  this  much  is  satisfactory, then service extraction may be initialized.
  894. ! Enable the desired services from the services sub-menu of the dcm menu  of  the
  895. ! moira  client.   Then run the DCM by invoking BIN_DIR/startdcm, and verify that
  896.   it produces the desired file.  It will log messages to SMS_DIR/dcm.log.  If the
  897.   data files are OK, then you may enable automatic update to the other servers by
  898. ! making additions in the hosts sub-menu of the dcm menu  in  the  moira  client.
  899. ! Each  host  must  be running /usr/etc/update_server and have a Kerberos key for
  900.   rcmd.hostname@localrealm in its /etc/srvtab to be able to receive updates.
  901.   
  902. ! When service updates are satisfactory,  you  can  set  up  /usr/lib/crontab  to
  903. ! invoke  BIN_DIR/startdcm  every  15  minutes.  When the DCM is started, it will
  904.   determine what work there is to do.
  905.   
  906. ! The only remaining part of the system is the registration server.  This may  be
  907. ! invoked  by  starting  BIN_DIR/startreg.    Note  that  the registration client
  908. ! (userreg) expects to find its data files in  /mit/register.    Before  you  can
  909.   successfully register new accounts, you must have
  910.   
  911.      - People entered as users in state 0
  912. --- 91,171 ----
  913.   
  914.         Copy all of the binaries installed in bin to BIN_DIR.
  915.   
  916. + Finally, make entries in /etc/services:
  917. + 
  918. +     sms_db          775/tcp         # Moira database
  919. +     sms_update      777/tcp         # Moira update protocol
  920. +     sms_ureg        779/udp         # Moira user registration
  921. + 
  922. + These are the numbers we use at Athena.  They are not officially allocated, and
  923. + you may change them at your site.
  924. + 
  925.   Creating the Database
  926.   
  927.   Create an Ingres database called moira with the command "createdb sms".
  928.   
  929. ! Run the script db/newdb in quel,  the  Ingres  query  interpreter,  creating  a
  930.   completely empty database.
  931.   
  932.   Run the newmoira program to initialize the database.  This program will ask:
  933.   
  934. !    1. For  the  name  of  a user to be given access to the database.  Root
  935. !       will automatically be given access; if you want someone else  to  be
  936. !       able  to  access the database through quel, then enter their name(s)
  937. !       here.  It will keep asking you for names until you  enter  an  empty
  938.         string.
  939.   
  940. !    2. The  starting  UID to assign.  This is the user id to be assigned to
  941. !       the next account created.  Each time an  account  is  created,  this
  942. !       number  is  incremented as long as it conflicts with an existing UID
  943.         in the database, then the resulting value is used.
  944.   
  945.      3. The starting GID to assign.  This is used just like the UID above.
  946.   
  947. !    4. The default NFS quota.   This  is  the  quota  that  new  users  are
  948.         assigned.
  949.   
  950. !    5. The  name  of  a privileged user.  This user will be put on the list
  951. !       dbadmin, which will be on the access control list for  every  query.
  952. !       This  user  may  then  make  any  change  to the database, including
  953.         putting other users on the dbadmin list.
  954.   
  955. ! At some point, the database must be optimized.  If a  lot  of  data  is  to  be
  956.   added, wait until afterwards.  Otherwise, you may do the optimization now.  The
  957. ! script db/dbopt contains quel commands to modify some  of  the  structures  and
  958. ! create  additional  indexes  on  the  tables.    You should also run the ingres
  959. ! commands /usr/rtingres/bin/optimizedb and /usr/rtingres/bin/sysmod  after  data
  960.   is loaded into the database.
  961.   
  962. ! Make  sure  the  necessary  Kerberos  keys  are in your /etc/srvtab file on the
  963. ! server.  For the initial server testing, only  moira.machinename@localrealm  is
  964. ! needed,  but  sms.[NULL]@localrealm is needed as well for updating servers, and
  965.   register.machinename@localrealm is needed to run the registration service.
  966.   
  967.   Testing the Services
  968.   
  969. ! At this point the server and clients may be tested.  Run BIN_DIR/startmoira  to
  970. ! get  a  server  running.    It  will  log everything to SMS_DIR/moira.log.  The
  971. ! privileged user chosen above may run the moira client, and make changes to  the
  972. ! database.    To  make more privileged users, put the new users on the "dbadmin"
  973.   list.
  974.   
  975. ! When this much is satisfactory, then service  extraction  may  be  initialized.
  976. ! Enable  the  desired services from the services sub-menu of the dcm menu of the
  977. ! moira client.  Then run the DCM by invoking BIN_DIR/startdcm, and  verify  that
  978.   it produces the desired file.  It will log messages to SMS_DIR/dcm.log.  If the
  979.   data files are OK, then you may enable automatic update to the other servers by
  980. ! making  additions  in  the  hosts sub-menu of the dcm menu in the moira client.
  981. ! Each host must be running /usr/etc/update_server and have a  Kerberos  key  for
  982.   rcmd.hostname@localrealm in its /etc/srvtab to be able to receive updates.
  983.   
  984. ! When  service  updates  are  satisfactory,  you  can set up /usr/lib/crontab to
  985. ! invoke BIN_DIR/startdcm every 15 minutes.  When the DCM  is  started,  it  will
  986.   determine what work there is to do.
  987.   
  988. ! The  only remaining part of the system is the registration server.  This may be
  989. ! invoked by starting  BIN_DIR/startreg.    Note  that  the  registration  client
  990. ! (userreg)  expects  to  find  its  data files in /mit/register.  Before you can
  991.   successfully register new accounts, you must have
  992.   
  993.      - People entered as users in state 0
  994. ***************
  995. *** 163,212 ****
  996.   
  997.      - 1 or more hosts as POP service providers listed in the hosts sub-menu
  998.        of the dcm menu in the moira client.  Value2 for each of these is the
  999. !      maximum  number  of  poboxes  that  may  be allocated on that server,
  1000.        value1 is the number currently allocated.
  1001.   
  1002. !    - 1 or more NFS partitions listed in the nfs menu of the moira  client.
  1003. !      The  declared  size  of the partition must be greater than the sum of
  1004.        the quotas that will be assigned to it.  The status must be "Student"
  1005.        for register to automatically assign new users there.
  1006.   
  1007. !    - register.moiraserver@localrealm  must  be  on  the "add" and "modify"
  1008.        access control lists for the Kerberos admin server.
  1009.   
  1010. ! When you are confident that the system works, you may have the daemons  started
  1011. ! by  /etc/rc.  We prefer to start them by hand after verifying that the database
  1012. ! survived any system crash.  We also have /etc/rc create the file /etc/nodcm  at
  1013.   boot time, so that the DCMs started every 15 minutes won't do anything until we
  1014.   removed that file.
  1015.   
  1016.   Customization
  1017.   
  1018. ! This is difficult to give advice on, but I'll start by describing  how  we  add
  1019.   new services and change things.
  1020.   
  1021. !    1. First  determine  what data must be recorded for this service.  What
  1022.         is  the  type  of  each  datum:  integer,  string,  date,  username,
  1023.         listname, machinename, other?
  1024. - 
  1025.      2. Design the Ingres table to record this information.  Integers may be
  1026. !       1, 2, or 4 bytes long.   Strings  may  be  ascii  character  strings
  1027. !       (storage  compresses  out  whitespace) or binary byte fields.  Other
  1028. !       moira objects  such  as  users,  lists,  machines,  etc.  should  be
  1029. !       referenced  by  their internal ID numbers.  If you're creating a new
  1030. !       type that may be referenced by other tables, assign  each  object  a
  1031. !       unique  ID number as well as its name.  Add this table specification
  1032. !       to db/dbbuild, so that recompiling the backup and  restore  programs
  1033.         will cause them to know about the new table(s).
  1034.   
  1035. !    3. If  a  new  object  type  is  added  to  the  database,  also update
  1036.         server/incremental.qc to know about incremental updates to this type
  1037.         of object.
  1038.   
  1039. !    4. Specify  the  queries  that  will be used to access this data.  Most
  1040. !       datatypes have 4 queries: retrieve, add, update, and delete.    Some
  1041. !       have  multiple kinds of retrieves, and/or multiple kinds of updates.
  1042. !       If you make it similar to  other  existing  queries,  you  are  more
  1043.         likely to be able to share code in the server.
  1044.   
  1045.      5. Make  the  additional  entries  in  server/queries2.c  for  the  new
  1046. --- 172,220 ----
  1047.   
  1048.      - 1 or more hosts as POP service providers listed in the hosts sub-menu
  1049.        of the dcm menu in the moira client.  Value2 for each of these is the
  1050. !      maximum number of poboxes that  may  be  allocated  on  that  server,
  1051.        value1 is the number currently allocated.
  1052.   
  1053. !    - 1  or more NFS partitions listed in the nfs menu of the moira client.
  1054. !      The declared size of the partition must be greater than  the  sum  of
  1055.        the quotas that will be assigned to it.  The status must be "Student"
  1056.        for register to automatically assign new users there.
  1057.   
  1058. !    - register.moiraserver@localrealm must be on  the  "add"  and  "modify"
  1059.        access control lists for the Kerberos admin server.
  1060.   
  1061. ! When  you are confident that the system works, you may have the daemons started
  1062. ! by /etc/rc.  We prefer to start them by hand after verifying that the  database
  1063. ! survived  any system crash.  We also have /etc/rc create the file /etc/nodcm at
  1064.   boot time, so that the DCMs started every 15 minutes won't do anything until we
  1065.   removed that file.
  1066.   
  1067.   Customization
  1068.   
  1069. ! This  is  difficult  to give advice on, but I'll start by describing how we add
  1070.   new services and change things.
  1071.   
  1072. !    1. First determine what data must be recorded for this service.    What
  1073.         is  the  type  of  each  datum:  integer,  string,  date,  username,
  1074.         listname, machinename, other?
  1075.      2. Design the Ingres table to record this information.  Integers may be
  1076. !       1,  2,  or  4  bytes  long.   Strings may be ascii character strings
  1077. !       (storage compresses out whitespace) or binary byte  fields.    Other
  1078. !       moira  objects  such  as  users,  lists,  machines,  etc.  should be
  1079. !       referenced by their internal ID numbers.  If you're creating  a  new
  1080. !       type  that  may  be referenced by other tables, assign each object a
  1081. !       unique ID number as well as its name.  Add this table  specification
  1082. !       to  db/dbbuild,  so that recompiling the backup and restore programs
  1083.         will cause them to know about the new table(s).
  1084.   
  1085. !    3. If a  new  object  type  is  added  to  the  database,  also  update
  1086.         server/incremental.qc to know about incremental updates to this type
  1087.         of object.
  1088.   
  1089. !    4. Specify the queries that will be used to access  this  data.    Most
  1090. !       datatypes  have  4 queries: retrieve, add, update, and delete.  Some
  1091. !       have multiple kinds of retrieves, and/or multiple kinds of  updates.
  1092. !       If  you  make  it  similar  to  other existing queries, you are more
  1093.         likely to be able to share code in the server.
  1094.   
  1095.      5. Make  the  additional  entries  in  server/queries2.c  for  the  new
  1096. ***************
  1097. *** 214,224 ****
  1098.         the query table is coded.  Then recompile and re-install the server.
  1099.         You can test the new queries with the mrtest client.
  1100.   
  1101. !    6. It may be necessary to write a new dcm extraction program (for  many
  1102. !       services,  this is the only thing required: no new data or queries).
  1103. !       The source to these is in the gen directory.  Note that  they  touch
  1104. !       the  database  directly, rather than going through the moira server.
  1105. !       This is for performance reasons.  These routines use the  queue  and
  1106. !       hash  table  routines  from  the  moira library.  The easiest way to
  1107. !       write a new one that does all of the time checking correctly  is  to
  1108.         start with one of the existing ones.
  1109. --- 222,232 ----
  1110.         the query table is coded.  Then recompile and re-install the server.
  1111.         You can test the new queries with the mrtest client.
  1112.   
  1113. !    6. It  may be necessary to write a new dcm extraction program (for many
  1114. !       services, this is the only thing required: no new data or  queries).
  1115. !       The  source  to these is in the gen directory.  Note that they touch
  1116. !       the database directly, rather than going through the  moira  server.
  1117. !       This  is  for performance reasons.  These routines use the queue and
  1118. !       hash table routines from the moira library.    The  easiest  way  to
  1119. !       write  a  new one that does all of the time checking correctly is to
  1120.         start with one of the existing ones.
  1121. *** /mit/bitbucket/mar/moira/doc/tech-plan/db_analysis.mss    Wed Mar 21 19:04:17 1990
  1122. --- doc/tech-plan/db_analysis.mss    Wed Apr 25 14:58:38 1990
  1123. ***************
  1124. *** 33,39 ****
  1125.   
  1126.   Two programs (@t[mrbackup] and @t[mrrestore]) are generated
  1127.   automatically (using an @t[awk] script) from the database description
  1128. ! file @t[sms/db/dbbuild]@footnote[All pathnames are relative to the
  1129.   root of the Moira source tree].  @t[mrbackup] copies each relation of
  1130.   the current Moira database into an ASCII file.  Each row of the database
  1131.   is converted into a single line of text; each line consists of several
  1132. --- 33,39 ----
  1133.   
  1134.   Two programs (@t[mrbackup] and @t[mrrestore]) are generated
  1135.   automatically (using an @t[awk] script) from the database description
  1136. ! file @t[db/newdb]@footnote[All pathnames are relative to the
  1137.   root of the Moira source tree].  @t[mrbackup] copies each relation of
  1138.   the current Moira database into an ASCII file.  Each row of the database
  1139.   is converted into a single line of text; each line consists of several
  1140. ***************
  1141. *** 60,66 ****
  1142.   @begin(programexample, Size -1) 
  1143.   # createdb smstemp
  1144.   # quel smstemp
  1145. ! * \i /u1/sms/db/dbbuild            @i(load DB definition)
  1146.   * \g                    @i(execute DB definition)
  1147.   * \q                    @i(quit)
  1148.   # mrrestore
  1149. --- 60,66 ----
  1150.   @begin(programexample, Size -1) 
  1151.   # createdb smstemp
  1152.   # quel smstemp
  1153. ! * \i /mit/moira/src/db/newdb        @i(load DB definition)
  1154.   * \g                    @i(execute DB definition)
  1155.   * \q                    @i(quit)
  1156.   # mrrestore
  1157. *** /mit/bitbucket/mar/moira/clients/moira/dcmmaint.c    Wed May  2 12:39:55 1990
  1158. --- clients/moira/dcmmaint.c    Wed Apr 25 12:42:20 1990
  1159. ***************
  1160. *** 1,4 ****
  1161. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/dcmmaint.c,v 1.8 90/03/27 11:40:41 mar Exp $
  1162.    *
  1163.    * Copyright 1987, 1988 by the Massachusetts Institute of Technology.
  1164.    * For copying and distribution information, please see the file
  1165. --- 1,4 ----
  1166. ! /* $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/dcmmaint.c,v 1.9 90/04/25 12:42:04 mar Exp $
  1167.    *
  1168.    * Copyright 1987, 1988 by the Massachusetts Institute of Technology.
  1169.    * For copying and distribution information, please see the file
  1170. ***************
  1171. *** 113,123 ****
  1172.   char **argv;
  1173.   {
  1174.       int status;
  1175. !     char *info[8];
  1176.   
  1177.       initserv(argv[1], info);
  1178.       askserv(info);
  1179. !     if (status = do_mr_query("add_server_info", 8, info, Scream, NULL))
  1180.         com_err(whoami, status, " while updating server info");
  1181.       FreeInfo(info);
  1182.       return(DM_NORMAL);
  1183. --- 113,123 ----
  1184.   char **argv;
  1185.   {
  1186.       int status;
  1187. !     char *info[SC_END];
  1188.   
  1189.       initserv(argv[1], info);
  1190.       askserv(info);
  1191. !     if (status = do_mr_query("add_server_info", SC_END, info, Scream, NULL))
  1192.         com_err(whoami, status, " while updating server info");
  1193.       FreeInfo(info);
  1194.       return(DM_NORMAL);
  1195. ***************
  1196. *** 178,184 ****
  1197.   int argc;
  1198.   char **argv;
  1199.   {
  1200. !     char *qargv[9];
  1201.       int status;
  1202.   
  1203.       qargv[0] = (char *)argv[1];
  1204. --- 178,184 ----
  1205.   int argc;
  1206.   char **argv;
  1207.   {
  1208. !     char *qargv[SC_END];
  1209.       int status;
  1210.   
  1211.       qargv[0] = (char *)argv[1];
  1212. ***************
  1213. *** 188,194 ****
  1214.       return(DM_NORMAL);
  1215.       }
  1216.       askserv(qargv);
  1217. !     if (status = do_mr_query("update_server_info", 8, qargv, Scream, NULL))
  1218.         com_err(whoami, status, " while updating server info");
  1219.       return(DM_NORMAL);
  1220.   }
  1221. --- 188,194 ----
  1222.       return(DM_NORMAL);
  1223.       }
  1224.       askserv(qargv);
  1225. !     if (status = do_mr_query("update_server_info", SC_END, qargv, Scream, NULL))
  1226.         com_err(whoami, status, " while updating server info");
  1227.       return(DM_NORMAL);
  1228.   }
  1229. ***************
  1230. *** 256,262 ****
  1231.   char **argv;
  1232.   {
  1233.       int status;
  1234. !     char *qargv[5], buf[BUFSIZ];
  1235.   
  1236.       sprintf(buf, "Reset state for service %s (Y/N)", argv[1]);
  1237.       if (!Confirm(buf))
  1238. --- 256,262 ----
  1239.   char **argv;
  1240.   {
  1241.       int status;
  1242. !     char *qargv[6], buf[BUFSIZ];
  1243.   
  1244.       sprintf(buf, "Reset state for service %s (Y/N)", argv[1]);
  1245.       if (!Confirm(buf))
  1246. ***************
  1247. *** 371,377 ****
  1248.   int argc;
  1249.   char **argv;
  1250.   {
  1251. !     char *info[SHI_END+1];
  1252.       int status;
  1253.   
  1254.       info[SHI_SERVICE] = strsave(argv[1]);
  1255. --- 371,377 ----
  1256.   int argc;
  1257.   char **argv;
  1258.   {
  1259. !     char *info[SHI_END];
  1260.       int status;
  1261.   
  1262.       info[SHI_SERVICE] = strsave(argv[1]);
  1263. ***************
  1264. *** 394,400 ****
  1265.   int argc;
  1266.   char **argv;
  1267.   {
  1268. !     char *info[SHI_END+1];
  1269.       int status;
  1270.   
  1271.       info[SHI_SERVICE] = strsave(argv[1]);
  1272. --- 394,400 ----
  1273.   int argc;
  1274.   char **argv;
  1275.   {
  1276. !     char *info[SHI_END];
  1277.       int status;
  1278.   
  1279.       info[SHI_SERVICE] = strsave(argv[1]);
  1280. ***************
  1281. *** 401,407 ****
  1282.       info[SHI_MACHINE] = strsave(canonicalize_hostname(argv[2]));
  1283.       inithost(info);
  1284.       askhost(info);
  1285. !     if (status = do_mr_query("add_server_host_info", 6, info, Scream, NULL))
  1286.         com_err(whoami, status, " while adding server/host info");
  1287.       FreeInfo(info);
  1288.       return(DM_NORMAL);
  1289. --- 401,408 ----
  1290.       info[SHI_MACHINE] = strsave(canonicalize_hostname(argv[2]));
  1291.       inithost(info);
  1292.       askhost(info);
  1293. !     if (status = do_mr_query("add_server_host_info", SHI_END, info,
  1294. !                  Scream, NULL))
  1295.         com_err(whoami, status, " while adding server/host info");
  1296.       FreeInfo(info);
  1297.       return(DM_NORMAL);
  1298. *** /mit/bitbucket/mar/moira/clients/moira/cluster.c    Sat Mar 17 17:10:13 1990
  1299. --- clients/moira/cluster.c    Wed Apr 25 12:35:07 1990
  1300. ***************
  1301. *** 1,5 ****
  1302.   #if (!defined(lint) && !defined(SABER))
  1303. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/cluster.c,v 1.17 90/03/17 17:10:08 mar Exp $";
  1304.   #endif lint
  1305.   
  1306.   /*    This is the file cluster.c for the MOIRA Client, which allows a nieve
  1307. --- 1,5 ----
  1308.   #if (!defined(lint) && !defined(SABER))
  1309. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/cluster.c,v 1.18 90/04/25 12:34:59 mar Exp $";
  1310.   #endif lint
  1311.   
  1312.   /*    This is the file cluster.c for the MOIRA Client, which allows a nieve
  1313. ***************
  1314. *** 11,17 ****
  1315.    *
  1316.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/cluster.c,v $
  1317.    *      $Author: mar $
  1318. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/cluster.c,v 1.17 90/03/17 17:10:08 mar Exp $
  1319.    *    
  1320.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1321.    *
  1322. --- 11,17 ----
  1323.    *
  1324.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/cluster.c,v $
  1325.    *      $Author: mar $
  1326. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/cluster.c,v 1.18 90/04/25 12:34:59 mar Exp $
  1327.    *    
  1328.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1329.    *
  1330. ***************
  1331. *** 987,993 ****
  1332.       if( (stat = do_mr_query("add_cluster_data", 3, argv + 1,
  1333.                    Scream, (char *) NULL)) != 0)
  1334.       com_err(program_name, stat, " in AddClusterData.");
  1335. ! 
  1336.   }
  1337.   
  1338.   /*    Function Name: RealRemoveClusterData
  1339. --- 987,993 ----
  1340.       if( (stat = do_mr_query("add_cluster_data", 3, argv + 1,
  1341.                    Scream, (char *) NULL)) != 0)
  1342.       com_err(program_name, stat, " in AddClusterData.");
  1343. !     return(DM_NORMAL);
  1344.   }
  1345.   
  1346.   /*    Function Name: RealRemoveClusterData
  1347. *** /mit/bitbucket/mar/moira/clients/moira/delete.c    Sat Mar 17 17:10:29 1990
  1348. --- clients/moira/delete.c    Wed Apr 25 12:50:47 1990
  1349. ***************
  1350. *** 1,5 ****
  1351.   #if (!defined(lint) && !defined(SABER))
  1352. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/delete.c,v 1.16 90/03/17 17:10:23 mar Exp $";
  1353.   #endif lint
  1354.   
  1355.   /*    This is the file delete.c for the MOIRA Client, which allows a nieve
  1356. --- 1,5 ----
  1357.   #if (!defined(lint) && !defined(SABER))
  1358. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/delete.c,v 1.17 90/04/25 12:50:26 mar Exp $";
  1359.   #endif lint
  1360.   
  1361.   /*    This is the file delete.c for the MOIRA Client, which allows a nieve
  1362. ***************
  1363. *** 11,17 ****
  1364.    *
  1365.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/delete.c,v $
  1366.    *      $Author: mar $
  1367. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/delete.c,v 1.16 90/03/17 17:10:23 mar Exp $
  1368.    *    
  1369.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1370.    *
  1371. --- 11,17 ----
  1372.    *
  1373.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/delete.c,v $
  1374.    *      $Author: mar $
  1375. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/delete.c,v 1.17 90/04/25 12:50:26 mar Exp $
  1376.    *    
  1377.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1378.    *
  1379. ***************
  1380. *** 426,431 ****
  1381. --- 426,432 ----
  1382.       return(SUB_NORMAL);
  1383.   }
  1384.   
  1385. + #ifndef ATHENA
  1386.   /*    Function Name: RealDeleteUser
  1387.    *    Description: Just Deletes the user.
  1388.    *    Arguments: name - name of User to delete
  1389. ***************
  1390. *** 448,453 ****
  1391. --- 449,455 ----
  1392.       Put_message(buf);
  1393.       return(SUB_NORMAL);
  1394.   }
  1395. + #endif
  1396.   
  1397.   /*    Function Name: RealDeleteList
  1398.    *    Description: Just Deletes the list.
  1399. ***************
  1400. *** 636,642 ****
  1401. --- 638,646 ----
  1402.       int status;
  1403.       char buf[BUFSIZ];
  1404.       char * name = argv[1];    /* name of the user we are deleting. */
  1405. + #ifndef ATHENA
  1406.       struct qelem *local, *member_of = NULL;
  1407. + #endif
  1408.   
  1409.       if (!ValidName(name))
  1410.       return(DM_NORMAL);
  1411. ***************
  1412. *** 652,665 ****
  1413.       if (status == 0) {
  1414.       sprintf(buf,"User %s deleted.", name);
  1415.       Put_message(buf);
  1416.       /* delete this return if the policy decision below is reversed */
  1417.       return(DM_NORMAL);
  1418.       }
  1419.   /* Design decision not to allow registered users to be deleted.
  1420.    */
  1421.       Put_message("Sorry, registered users cannot be deleted from the database.");
  1422.       Put_message("Deactivate the user now, and the system manager will expunge later.");
  1423. ! #ifdef notdef
  1424.       else if (status == MR_IN_USE) {
  1425.   
  1426.   /*
  1427. --- 656,672 ----
  1428.       if (status == 0) {
  1429.       sprintf(buf,"User %s deleted.", name);
  1430.       Put_message(buf);
  1431. + #ifdef ATHENA
  1432.       /* delete this return if the policy decision below is reversed */
  1433.       return(DM_NORMAL);
  1434. + #endif
  1435.       }
  1436. + #ifdef ATHENA
  1437.   /* Design decision not to allow registered users to be deleted.
  1438.    */
  1439.       Put_message("Sorry, registered users cannot be deleted from the database.");
  1440.       Put_message("Deactivate the user now, and the system manager will expunge later.");
  1441. ! #else
  1442.       else if (status == MR_IN_USE) {
  1443.   
  1444.   /*
  1445. *** /mit/bitbucket/mar/moira/clients/moira/pobox.c    Sat Mar 17 17:11:11 1990
  1446. --- clients/moira/pobox.c    Wed Apr 25 12:39:55 1990
  1447. ***************
  1448. *** 1,5 ****
  1449.   #if (!defined(lint) && !defined(SABER))
  1450. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/pobox.c,v 1.14 90/03/17 17:11:09 mar Exp $";
  1451.   #endif lint
  1452.   
  1453.   /*    This is the file pobox.c for the MOIRA Client, which allows a nieve
  1454. --- 1,5 ----
  1455.   #if (!defined(lint) && !defined(SABER))
  1456. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/pobox.c,v 1.15 90/04/25 12:39:49 mar Exp $";
  1457.   #endif lint
  1458.   
  1459.   /*    This is the file pobox.c for the MOIRA Client, which allows a nieve
  1460. ***************
  1461. *** 11,17 ****
  1462.    *
  1463.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/pobox.c,v $
  1464.    *      $Author: mar $
  1465. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/pobox.c,v 1.14 90/03/17 17:11:09 mar Exp $
  1466.    *    
  1467.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1468.    *
  1469. --- 11,17 ----
  1470.    *
  1471.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/pobox.c,v $
  1472.    *      $Author: mar $
  1473. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/pobox.c,v 1.15 90/04/25 12:39:49 mar Exp $
  1474.    *    
  1475.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1476.    *
  1477. ***************
  1478. *** 225,230 ****
  1479. --- 225,231 ----
  1480.       }
  1481.       
  1482.       default:            /* ^C hit. */
  1483. +     type = "NONE";
  1484.       break;
  1485.       }
  1486.   
  1487. *** /mit/bitbucket/mar/moira/clients/moira/utils.c    Wed May  2 12:40:12 1990
  1488. --- clients/moira/utils.c    Wed May  2 13:13:43 1990
  1489. ***************
  1490. *** 1,5 ****
  1491.   #if (!defined(lint) && !defined(SABER))
  1492. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v 1.25 90/04/09 18:05:03 mar Exp $";
  1493.   #endif lint
  1494.   
  1495.   /*    This is the file utils.c for the MOIRA Client, which allows a nieve
  1496. --- 1,5 ----
  1497.   #if (!defined(lint) && !defined(SABER))
  1498. !   static char rcsid_module_c[] = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v 1.26 90/05/02 13:13:32 mar Exp $";
  1499.   #endif lint
  1500.   
  1501.   /*    This is the file utils.c for the MOIRA Client, which allows a nieve
  1502. ***************
  1503. *** 11,17 ****
  1504.    *
  1505.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v $
  1506.    *      $Author: mar $
  1507. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v 1.25 90/04/09 18:05:03 mar Exp $
  1508.    *    
  1509.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1510.    *
  1511. --- 11,17 ----
  1512.    *
  1513.    *      $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v $
  1514.    *      $Author: mar $
  1515. !  *      $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/clients/moira/RCS/utils.c,v 1.26 90/05/02 13:13:32 mar Exp $
  1516.    *    
  1517.    *      Copyright 1988 by the Massachusetts Institute of Technology.
  1518.    *
  1519. ***************
  1520. *** 858,864 ****
  1521.       return(GetTypeFromUser(prompt, tname, pointer));
  1522.       }
  1523.       for (elem = GetTypeValues(tname); elem; elem = elem->q_forw) {
  1524. !     if (!cistrcmp(elem->q_data, *pointer)) {
  1525.           strcpy(*pointer, elem->q_data);
  1526.           return(SUB_NORMAL);
  1527.       }
  1528. --- 864,870 ----
  1529.       return(GetTypeFromUser(prompt, tname, pointer));
  1530.       }
  1531.       for (elem = GetTypeValues(tname); elem; elem = elem->q_forw) {
  1532. !     if (!strcasecmp(elem->q_data, *pointer)) {
  1533.           strcpy(*pointer, elem->q_data);
  1534.           return(SUB_NORMAL);
  1535.       }
  1536. *** /mit/bitbucket/mar/moira/rpc/strs.c    Tue Sep 13 15:53:49 1988
  1537. --- rpc/strs.c    Wed May  2 13:12:19 1990
  1538. ***************
  1539. *** 1,7 ****
  1540.   /*
  1541. !  *    $Source: /mit/smsdev/rpc/RCS/strs.c,v $
  1542.    *    $Author: mar $
  1543. !  *    $Header: strs.c,v 1.5 88/09/13 15:52:49 mar Exp $
  1544.    *
  1545.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  1546.    *    For copying and distribution information, please see the file
  1547. --- 1,7 ----
  1548.   /*
  1549. !  *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/strs.c,v $
  1550.    *    $Author: mar $
  1551. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/strs.c,v 1.6 90/05/02 13:12:11 mar Exp $
  1552.    *
  1553.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  1554.    *    For copying and distribution information, please see the file
  1555. ***************
  1556. *** 11,17 ****
  1557.    */
  1558.   
  1559.   #ifndef lint
  1560. ! static char *rcsid_strs_c = "$Header: strs.c,v 1.5 88/09/13 15:52:49 mar Exp $";
  1561.   #endif lint
  1562.   
  1563.   #include <mit-copyright.h>
  1564. --- 11,17 ----
  1565.    */
  1566.   
  1567.   #ifndef lint
  1568. ! static char *rcsid_strs_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/strs.c,v 1.6 90/05/02 13:12:11 mar Exp $";
  1569.   #endif lint
  1570.   
  1571.   #include <mit-copyright.h>
  1572. ***************
  1573. *** 73,93 ****
  1574.       *t = '\0';
  1575.       return s;
  1576.   }
  1577. - 
  1578. - /*
  1579. -  * Case insensitive string compare.
  1580. -  */
  1581. - 
  1582. - int cistrcmp(cp1, cp2)
  1583. -     char *cp1, *cp2;
  1584. - {
  1585. -     register int c1, c2;
  1586. -     
  1587. -     do {
  1588. -     if (isupper(c1 = (*cp1++))) c1 = tolower(c1);
  1589. -     if (isupper(c2 = (*cp2++))) c2 = tolower(c2);
  1590. -     if (c1 != c2) return c1-c2;
  1591. -     } while (c1 && c2);
  1592. -     return 0;
  1593. - }
  1594. - 
  1595. --- 73,75 ----
  1596. *** /mit/bitbucket/mar/moira/rpc/nfsparttype.c    Sat Mar 17 16:37:15 1990
  1597. --- rpc/nfsparttype.c    Wed May  2 13:12:30 1990
  1598. ***************
  1599. *** 1,7 ****
  1600.   /*
  1601.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/nfsparttype.c,v $
  1602.    *    $Author: mar $
  1603. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/nfsparttype.c,v 1.3 90/03/17 16:37:13 mar Exp $
  1604.    *
  1605.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  1606.    *    For copying and distribution information, please see the file
  1607. --- 1,7 ----
  1608.   /*
  1609.    *    $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/nfsparttype.c,v $
  1610.    *    $Author: mar $
  1611. !  *    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/nfsparttype.c,v 1.4 90/05/02 13:12:20 mar Exp $
  1612.    *
  1613.    *    Copyright (C) 1987 by the Massachusetts Institute of Technology
  1614.    *    For copying and distribution information, please see the file
  1615. ***************
  1616. *** 10,16 ****
  1617.    */
  1618.   
  1619.   #ifndef lint
  1620. ! static char *rcsid_nfsparttype_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/nfsparttype.c,v 1.3 90/03/17 16:37:13 mar Exp $";
  1621.   #endif lint
  1622.   
  1623.   #include <mit-copyright.h>
  1624. --- 10,16 ----
  1625.    */
  1626.   
  1627.   #ifndef lint
  1628. ! static char *rcsid_nfsparttype_c = "$Header: /afs/athena.mit.edu/astaff/project/moiradev/src/rpc/RCS/nfsparttype.c,v 1.4 90/05/02 13:12:20 mar Exp $";
  1629.   #endif lint
  1630.   
  1631.   #include <mit-copyright.h>
  1632. ***************
  1633. *** 105,111 ****
  1634.       t = strtrim(temp);    /* nuke leading and trailing whitespace */
  1635.   
  1636.       for (pp = fs_names; pp->type; pp++) {
  1637. !         if (cistrcmp(pp->name, t) == 0) {
  1638.           flags |= pp->type;
  1639.           break;
  1640.           }
  1641. --- 104,110 ----
  1642.       t = strtrim(temp);    /* nuke leading and trailing whitespace */
  1643.   
  1644.       for (pp = fs_names; pp->type; pp++) {
  1645. !         if (strcasecmp(pp->name, t) == 0) {
  1646.           flags |= pp->type;
  1647.           break;
  1648.           }
  1649. *** /mit/bitbucket/mar/moira/update/Makefile    Mon Mar 19 13:04:26 1990
  1650. --- update/Makefile    Wed May  2 13:20:36 1990
  1651. ***************
  1652. *** 1,6 ****
  1653.   #
  1654.   #     $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/update/RCS/Makefile,v $
  1655. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/update/RCS/Makefile,v 1.16 90/03/19 13:04:21 mar Exp $
  1656.   #
  1657.   
  1658.   #
  1659. --- 1,6 ----
  1660.   #
  1661.   #     $Source: /afs/athena.mit.edu/astaff/project/moiradev/src/update/RCS/Makefile,v $
  1662. ! #    $Header: /afs/athena.mit.edu/astaff/project/moiradev/src/update/RCS/Makefile,v 1.17 90/05/02 13:20:25 mar Exp $
  1663.   #
  1664.   
  1665.   #
  1666. ***************
  1667. *** 31,37 ****
  1668.   
  1669.   LIBS=    -L../lib -lmoira -lgdb -lkrb -ldes -lcom_err
  1670.   
  1671. ! all:    moira_update.o update_server sms_untar
  1672.   
  1673.   update_server: ${SOBJS}
  1674.       cc ${CFLAGS} -o update_server ${SOBJS} ${LIBS}
  1675. --- 31,37 ----
  1676.   
  1677.   LIBS=    -L../lib -lmoira -lgdb -lkrb -ldes -lcom_err
  1678.   
  1679. ! all:    moira_update.o update_server
  1680.   
  1681.   update_server: ${SOBJS}
  1682.       cc ${CFLAGS} -o update_server ${SOBJS} ${LIBS}
  1683. ***************
  1684. *** 39,57 ****
  1685.   moira_update.o: ${COBJS}
  1686.       ld -r -o moira_update.o ${COBJS}
  1687.   
  1688. - sms_untar: sms_untar.c
  1689. -     cc -o sms_untar ${INCS} sms_untar.c
  1690.   
  1691. - 
  1692.   clean:    
  1693.       -rm -f ${COBJS} ${SOBJS}
  1694.       -rm -f update_server moira_update.o
  1695. -     -rm -f sms_untar
  1696.       -rm -f core a.out *~ \#*
  1697.   
  1698.   install: update_server
  1699.       install -c -s update_server ${DESTDIR}/usr/etc/update_server
  1700. -     install -c -s sms_untar ${DESTDIR}/etc/sms_untar
  1701.   
  1702.   lint:
  1703.       lint ${LINTFLAGS} ${SSRCS}
  1704. --- 39,52 ----
  1705.